10 REM THIS PROGRAM DEMONSTRATES HOW
20 REM TO INCLUDE MACHINE CODE INTO A
30 REM COMPILED BASIC PROGRAM
40 REM
50 REM THE CODE AT LINES 1000-1050 IS:
60 REM
70 REM        SEI
80 REM        LDX #$00
90 REM   LOOP LDA $D012 ;GET RASTER
91 REM        LSR A     ;POSITION
92 REM        LSR A
93 REM        LSR A
94 REM        LSR A
95 REM        STA 53281 ;CHANGE COLOUR
96 REM        DEX       ;REPEAT 256
97 REM        BNE LOOP  ;TIMES
98 REM        CLI
99 REM
100 GOSUB1000
110 GETA$:IFA$=""THEN100
120 POKE53281,0:END
1000 REM#$78,$A2,$00
1010 REM#$AD,$12,$D0
1020 REM#$4A,$4A,$4A,$4A
1030 REM#$8D,D53281
1040 REM#$CA,$D0,$F3
1050 REM#$58
1060 RETURN